put_unit_VS Subroutine

private subroutine put_unit_VS(unit, string, iostat)

Append a varying string to the current record of the specified unit

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unit
type(varying_string), intent(in) :: string
integer, intent(out), optional :: iostat

Source Code

  subroutine put_unit_VS (unit, string, iostat)

    integer, intent(in)              :: unit
    type(varying_string), intent(in) :: string
    integer, intent(out), optional   :: iostat


    call put(unit, char(string), iostat)

! Finish

    return

  end subroutine put_unit_VS